home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / GRAPTIES / OK212.LZH / PROGRAM.EXE / SHOWPIC.PRG < prev    next >
Text File  |  1987-04-25  |  814b  |  24 lines
  1. set talk off
  2. select 1
  3. * picbase.dbf is included in with OKSHOW, but it only has one field
  4. * You should be able to improve on that easily.
  5. use picbase
  6. go top
  7. do while .not. eof()
  8.    clear
  9. * here's a neat tip, set the color to black on black so no one can
  10. * see the file name on the screen, OKSHOW will find it even if no one
  11. * else can.
  12.    set color to 0/0
  13. * the location of the tilde must be 5 down and five over. In DBASE
  14. * we start with 0,0 so the position is 5,5
  15.    @ 4,4 say "~"+picname+" "
  16. * fix up the colors so humans can read the screen
  17.    set color to 7/0
  18. * tell the user to press the + to the right of the numeric keypad.
  19.    @ 10,10 say "Press the + key on the right of numeric keypad"
  20.    @ 11,10 say "to view picture "+trim(picname)+", or press return."
  21.    wait
  22.    skip +1
  23. enddo
  24.